home *** CD-ROM | disk | FTP | other *** search
/ Clipper Collection / Clipper Collection.iso / clipper7 / clipwind.arc / TESTNC.PRG < prev    next >
Text File  |  1988-03-14  |  1KB  |  26 lines
  1. CLEAR
  2. TEXT
  3. 1  Welcome, this is a demo of the Windows For Clipper Library for the 
  4. 2 Summer '87 version of the compiler. This demo will give you a breif 
  5. 3 introduction to the power of the library and what it can do for you. 
  6. 4
  7. 5  The above display was generated by initializing each window, drawing
  8. 6 each window, drawing each BIG letter, and then inserting a 150 count loop
  9. 7 to delay movement. Your ROM BIOS was used to write the characters. Next,
  10. 8 it will do all of the above, without the 150 count loop and using  direct
  11. 9 screen writes. Ready to watch it scream! 
  12. 0
  13. 1 Press A key when you're ready 
  14. ENDTEXT
  15. STORE 0 TO ltrow, ltcol, lerow, lecol
  16. clrcode = "       "
  17. DO WHILE .T.
  18.    @ 21,0 SAY "Enter Starting Row " GET ltrow 
  19.    @ 21, COL() + 2 SAY "Enter Starting Column " GET ltcol
  20.    @ 22,0 SAY "Enter Ending Row " GET lerow
  21.    @ 22,COL() + 2 SAY "Enter Ending Column " GET lecol
  22.    @ 23,0 SAY "Enter Color Code String " GET clrcode PICTURE "A/A/A/A"
  23.    READ
  24.    _newcolor(ltcol, ltrow, lecol, lerow, clrcode)
  25. ENDDO
  26.